subroutine adjust

  use common
  implicit none

  write(*,*) adjustr(mymsg)

end subroutine adjust
